patient_id <- c(1, 2, 3, 4)
age <- c(24, 23, 5, 34)
diabetes <- c("Type1", "Type2", "Type1", "Type1")
status <- c("Poor", "Improved", "Excellent", "Poor")
patient_data <- data.frame(patient_id, age, diabetes, status)
print(patient_data)
# print(patient_data[1:2])
# print(patient_data[c("diabetes", "status")])
print(summary(patient_data))